home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / data / nyan_e2 / nyane2mb.plp < prev    next >
Text File  |  1993-11-30  |  3KB  |  146 lines
  1. /**********   バイナリメールの作成を行う  v1.04a用   **********/
  2.  
  3. %DestWPNC{[Attr]
  4.     %MemLst2{
  5.         var AddrFile[12];
  6.         case(Attr,
  7.           {WPNC },{AddrFile:={WPNCADRS.TXT};
  8.         },{FAX  },{AddrFile:={FAXDIALS.TXT};
  9.         });
  10.         mclear(2);
  11.         case(@filechk(logd|{\MAIL\}|AddrFile),
  12.         {Yes}, {mread(logd|{\MAIL\}|AddrFile,2);
  13.         },{No},{madd(2,{});
  14.         });
  15.     };
  16.     %Dmail{
  17.         %name @input({ 送信先のアドレスを入れてください},,{});
  18.         case( @nochar(name)>45,{Yes},{
  19.             footnote({｢}|name|
  20.             {｣は半角英数字40文字以内に。});
  21.         },,{
  22.             footnote({});
  23.             dest:=Attr|{:                 :}|name;
  24.         });
  25.     };
  26.     case(@mlast==0,{Yes},{mclear(1); madd(1,{})});
  27.     MemLst2;
  28.     loop({    mopen(2,0,21,599,459,{w});
  29.         footnote({直入決定        終了},{b});
  30.         loop({    waitx(1000);
  31.             im(@xtype!=2 && @xtype<100 || @xlinenum<0)
  32.         });
  33.         case(@PFK(@xtype),
  34.             2,{ dest:=Attr|{:                 :}|
  35.             @head(@head(@memo(2,@xlinenum),{\n}),{    });
  36.             im({No});
  37.         },101,{ loop({
  38.                 Dmail;
  39.                 im(dest={});
  40.             });
  41.         },102,{ dest:=Attr|{:                 :}|
  42.             @head(@head(@memo(2,@xlinenum),{\n}),{    });
  43.             im({No});
  44.         },105,{ dest:={};
  45.             im({No});
  46.         },   ,{    im({Yes});
  47.         });
  48.         case(@mcheck=2,{Yes},{mclose(3)});
  49.         footnote({});
  50.     });
  51. };
  52. %bmail{
  53.     %DestBMail{
  54.         %MemLst{[path]
  55.             mclear(2);
  56.             case(@filechk(logd|{\}|path|{\MEMBER.TXT}),
  57.             {Yes}, {mread(logd|{\}|path|{\MEMBER.TXT},2);
  58.             },{No},{madd(2,{});
  59.             });
  60.             mset(2,{w});
  61.         };
  62.         %Dmail{
  63.             %name @input({ 送信先のＩＤを入れてください},,{}) ;
  64.             case( @nochar(name)!=8,{Yes},{
  65.                 footnote({ ｢}|name|
  66.                 {｣は 英数字8文字でありません});
  67.             },,{
  68.                 footnote({});
  69.                 dest:={BMail:}|name|{         };
  70.             });
  71.         };
  72.         %attr    {BMail};
  73.         case(@mlast==0,{Yes},{mclear(1); madd(1,{})});
  74.         MemLst({MAIL});
  75.         loop({    mopen(2,0,21,256,459);
  76.             footnote({直入決定変更    終了},{b});
  77.             loop({    waitx(1000);
  78.                 im(@xtype!=2 && @xtype<100 || @xlinenum<0)
  79.             });
  80.             case(@PFK(@xtype),
  81.                 2,{ SetHandle;
  82.             },101,{ loop({
  83.                     Dmail;
  84.                     im(dest={});
  85.                 });
  86.             },102,{ SetHandle;
  87.             },103,{    mclose(3);
  88.                 loop({
  89.                     SelMail;
  90.                     case(@memo(2)={},
  91.                     {Yes}, {footnote({ 選択されたアドレス}
  92.                         |{ブックは空です});
  93.                     });
  94.                     im(@memo(2)={});
  95.                 });
  96.                 im({Yes});
  97.             },105,{    dest:={};
  98.                 im({No});
  99.             },   ,{    im({Yes});
  100.             });
  101.             case(@mcheck=2,{Yes},{mclose(3)});
  102.             footnote({});
  103.         });
  104.     };
  105.     DestBMail;
  106. };
  107.  
  108. %bmail2{
  109.     var fno[10];
  110.     var endtype[3];
  111.  
  112.     footnote({ 送信するファイルを選択してください});
  113.     Bmail:=@filesel;
  114.     BmailDir:=@getcdir2;
  115.     footnote({});
  116.  
  117.     case(Bmail<>{},
  118.     {Yes},{
  119.         endtype:=@select({ このファイルを送信予約しますか？}
  120.                 ,99999,{im({捨})},
  121.                 {送信予約する},            {im({予})},
  122.                 {送信予約しないが保存する},    {im({保})},
  123.                 {保存しないで捨てる},        {im({捨})}
  124.                  );
  125.     },{No},{im({捨});
  126.     });
  127.  
  128.     case( endtype={予} || endtype={保}   ,{Yes},{
  129.         fno:=0;
  130.         mkdir(logd,{UP});
  131.         loop({ fno:=fno+1;
  132.             filechk(FNameTop|{MES}|fno|{.txt})
  133.         });
  134.         fno:=@getchar(fno|{   },1,3);
  135.         IndexLine:=endtype|{ }|fno|{ }|dest|{:}|Title|{\n};
  136.         write( IndexFName , IndexLine);
  137.         %fname   FNameTop|{MES}|@head(fno,{ })|{.TXT};
  138.         dispoff({Yes});
  139.         command({copy }|BmailDir|{\}|Bmail|{ }|fname);
  140.         dispoff({No});
  141.     });
  142. };
  143.  
  144. case(proc,{２進},{bmail},{2進2},{bmail2},
  145.       {WPNC},{DestWPNC({WPNC })},{FAX},{DestWPNC({FAX  })});
  146.